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=$007 1382 93:23:38 — HXaacr SAE Smakel t 932° 9 4) 


pole MARBLI (IDENT="V04-000' ,MAIN=CONVERT X%TITLE’MARS to BLISS Macro Converter')= 


S 


SRR ERR AE RRA AAAERAAAAREREEAEEA AEE ERE EAA AAAAAAAAERAAEEAAERAARAR ETE 


'@ 

'® COPYRIGHT (c) 1978, 1980, 1982, 1984 B 

'® DIGITAL EQUIPMENT EORPORATION, MAYHARD. MASSACHUSETTS. 
'® ALL RIGHTS RESERVED. 


; 1 9 

; ‘ 1 | 

3 4 1 

3 5 1 * 

; 8 1 * 

: 1 * 

3 8 1 * 

; 9 0009 1 !* * 

; 0010 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 

3; 0011 1 !* ONLY IN ACCORDANCE WITH THE SUCH LICENSE ue “re THE * 

; \¢ Bot¢ 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR OTHER * 

es 0015 1 '* COPIES THEREOF MAY NOT B VIDED OR OTHERWISE MADE AVA TLABLE TO ANY * 

: 44 0014 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ® 

; 1? Bale : : TRANSFERRED. * 

; : ® 

Eee | $017 1 !* THE INFORMATION IN THIS SOFTWARE iS SUBJECT TO CHANGE WITHOUT NOTICE * 

; 18 0018 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

; 13 984 : :* CORPORATION. * 

3 ‘® ® 

: 21 itd 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

; 22 00 § 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

> ae 00 1 !e * 

; 0024 1 !« * 

2 $2 eB 5 ! Lee R RRR ERRATA AAA AAA AAA AERA AAA REESE 

3 6 6 

) or 0027 1 !++ 

; ae 0028 1! 

3; 594 1 ! ABSTRACT: 

3; 2 0030 1! The routines in this module, along with XPORT 

3 $ 0031 1! convert a specifically formatted MARS macro file into a 

3 3 Ooes } BLISS macro file. 

; 0034 1! The logic in this module is somewhat ad hoc and 

3; 9 0035 1! any perturbation of the format of the MARS file may result 

> = 0036 1! n these routines not working. 

; oT 0037 1! 

. | 0038 1 ! AUTHOR: 

; 0039 1! P.C. Marks, CREATION DATE: 3 FEB 77 

: 40 0040 1! 

3 4) 0041 1 ! MODIFIED BY: 

; $§ Bbe$ 1! 

.. 4 00435 1! v03-001 40995 Martin L. Jack, 14-Jul-1982 11:38 

7 «644 044 1! I "MACRO" Line contains the string “CUFS" change the 

3 o2 Bee : MA prefix from SYS$ to CJF$. Do the same for RU 

3 “3 047 1! v02-003 BLS0073 Benn Schreiber 26-Aug-1981 

: $8 Bog ! Disable per-macro output 

; Byee 1 v02-002 Puggor Al Lehotsky 4-Jun-1981 | 

; 3} ope. : Change Po l-character names which was missed earlier. 

; $s 5088 7! v02-001 BLS0055 Benn Schreiber 3-Jun-1981 

3 ee 0085 ! Use BLISS Linkage and GENERAL oddressine mode 

3 28 B28 1! A.P. Lehotsky 31-Oct-79 Transport to VAX. Suppress ‘()"’ in | 

i OF 0057 1! macros without arguments, e.g. SHIBER 
| 
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1 FORWARD ROUTINE 

1 CONVER 

1 CONVMACRO: NOVALUE, 
1 OUTLIST, 

CONVARGLIST: NOVALUE; 
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Main routine 

Convert a .MACRO definition 
Output a parameter list 

Convert argument List of a .MACRO 
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*MARBLI V03-001'" 2%; 


VERSTR= 
LIBRARY ‘SYSSLIBRARY:XPORT'; 
LITERAL 


! Max number of macro arguments 


_NO_ARGS= 63, 
MAX-ARG_LIST= 65*MAX_NO_ARGS, ! Max characters in formal arg List 
-PEC_SIZE= 130; ! Max input and output record Length 
MACRO 
REPEAT= 
WHILE 1 DO &, 
Construct length and pointer parameters 
CHSLEN._ PTRCJ= 
ZCRARCOUNT(ZREMAINING), CHSPTRCUPLIT(ZREMAINING)) %, 
Return the index of string S in context C 
CHSINDEX(CL,C,S) = 
CHSFIND_SUB(CL, C, ZCHARCOUNT(S), CHSPTR(UPLIT(S))) %, 
Return the size of the zero-truncated output buffer 
TRUNCATED OUTPUT = 
CASDIFF(CHSFIND_CH( MAX_REC_SIZE+1, CHSPTR(OUTPUT_RECORD),0), 
CHSPTR(GUTPUT_RECORB)) %; 
OWN 


OWN 


'¢ 
! Declarations for processing a text Line for macro declaration and 
the associated argument List. 


iNPUT_RECORD: VECTORECHSALLOCATION(MAX_REC_SIZE)], 
INPUT~PT 
INPUT“LENGTH, 


: Guarantee at least 1 zero byte at end of output 
} record s.t. TRUNCATED_OUTPUT macro cannot fail. 


OUTPUT_RECORD: VECTORCCHSALLOCATION(MAX_REC_SIZE+1)J, 
OUTPUT~PTR, 

ARG_PTR 

ARG”LENGTH, 

ARG_LIST: — VECTORCCHSALLOCATION(MAX_ARG_LIST)J, 

CALL_PTR 

CALL“LENGTH, 

CALLILIST: “VECTORCCHSALLOCATION(MAX_ARG_LIST)], 

VAR_ARGS; 


'¢ 
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tte eo-198t 1:54:58 yaRed BL iego32. 


a 1/0 related declarations. 


TERMINAL:  $XPO_I0B(), 
INPUT: $XPO-108(), 
OUTPUT: $XPO_10B(); 


v4.0 
L1.8 


3254 


MAR 
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ROUTINE CONVERT = 
! FUNCTIONAL DESCRIPTION: 
This is the main routine of this module. 
The chief function is to examine an input Line and determine 
whether it should be ignored or processed by other routines. 
IMPLICIT INPUTS: 
OWN storage 
IMPLICIT OUTPUTS: 
OWN storage 
ROUTINE VALUE: 
Success or an XPORT completion code 
aan 
PRINT_COMMENTS; ! Flag to pass comments and blank Lines to output 
$XPO_10B_INIT(IOB=TERMINAL); 
$XPO_10B_INIT(IOB=INPUT); 
$XPO~10B"INIT(10B=OUTPUT) ; 
$XPO_OPEN( IOB=TERMINAL, FILE_SPEC=$XPO_INPUT); 
$xPO_PUT( IOB=TERMINAL, 
STRING=(ZSTRING('System-Service Macro Translator ',%EXPAND VERSTR)) ); 
Tere aEGl 
IF NOT $XPO_GET(IOB=TERMINAL, PROMPT=("Input file (STARLET.MAR): ") ) 
RETURN XPO$_NORMAL; 
IF $XPO_OPEN(10B=INPUT 
FILE SPEC=TERMINALCIOB$T_STRING), ' User supplied name 
DEFAOLT=("STARLET.MAR'), ! The standard input 
_ FAILURE=XPO$10_FAILURE) 


N 
EXITLOOP ! Got good input. 
END; 
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IF NOT $XPO_GET(IOB=TERMINAL, PROMPT=("Output file (*.B32): ') ) 
RETURN XPO$_NORMAL; 


$XPO_OPEN(10B=0UTPUT 

FILE SPEC TERMINALCIOBST_STRING], 
DEFAOLT=('*.B32") 
RELATED=INPUTCI0B$T_RESULTANT], 
OPTION=OUTPUT); 


$XPO_PUT(10B=OUTPUT, 
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14-Sep-19 MARBLI.SRCJMARBLI .832; 
STRING=(ZSTRING("! Translated from MACRO-32 by ', EXPAND VERSTR)) ); 


: Set CSP pointer for the output record. 


OUTPUT_PTR = CHSPTR(OUTPUT_RECORD); 
PRINT_COMMENTS = 0; 
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p: 
Exit from this loop when an end of file is read 
or an 1/0 error has occurred. 


! 
WHILE $XPO_GET(IOB=INPUT) DO 
BEGIN 


INPUT_LENGTH = .INPUTCIOBSH praineas 
INPUT_PTR = .INPUTCIOBSA_STRING); 


IF .INPUT_LENGTH LSS 0 THEN EXITLOOP; 
IF_.INPUT_LENGTH EQL 0 
THEN 


BEGIN 
IF .PRINT_COMMENTS THEN $XPO_PUT(IOB=OUTPUT, STRING=('") ) 
ELSE 
BEGIN 
CHSCOPY(.INPUT_LENGTH, .INPUT_PTR, 0, MAX_REC_SIZE, .OUTPUT_PTR); 
INPUT_LENGTH = TRUNCATED_OUTPUT; 
IF CHSRCHAR(.OUTPUT_PTR) EQL %C';' 
THEN 
BEGIN 


i Comment Line 
Note comments are printed only after Line ‘';*"' is read 


CHSWCHAR(ZC'!", .OUTPUT_PTR); 
If PRINT _COMMENTS 

$XPO_PUT(IOB=OUTPUT, STRING=(.INPUT_LENGTH, .OUTPUT_PTR)); 
IF _CHSRCHAR(CHSPLUS( OUTPUT_PTR, 1)) EQL XC*#! 


N 
> PRINT_COMMENTS = 1 


ELSE IF (CHSINDEX(.INPUT_LENGTH, .OUTPUT PTR, '.MACRO')) NEC 0 
IF (CHSINDEX(. INPUT LENGTH, .OUTPUT_PTR, '_S')) NEQ 0 
i] 


Macro in 
CONVMACRO() 


_S"* form: Output it 


END 
END; 
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v06 exseert BBs N:23:38 «— HAKRAT Ok isan ke v4.0.0 wer cad 
3 ¢$ 45 
: 26 4g $XPO_CLOSE(10B=INPUT); 
: 48 4 SXPO-CLOSE (10B=OUTPUTS ; | 
: 250 rt ' «KPO LOB= TERMINAL , STRING=("End MARBLI") ); 
; 251 ‘ $XPO OTL OSE. 1OB=TERMINAL ); 
: : ; XPOS_NORMAL | 
3 4 END; 
TITLE try oa MARS to BLISS Macro Converter | 
“IDENT \V04-000\ 
.PSECT $PLIT$,NOWRT,NOEXE,2 
54 55 SO 4E 49 34 53 59 53 00000 P.AAA: .ASCII \SYSSINPUT\ ; 
41 546 53 28 20 65 6¢ 9 66 20 74 75 70 6E 49 00009 P.AAB: ASCII \Input file (STARLET.MAR): \ : 
A 2 41 4D 26 54 45 4¢ 2¢ 0018 : 
41 4D 26 54 45 4¢ ; 41 34 0023 P.AAC: .ASCII \STARLET.MAR\ ; 
2 2A 28 20 65 6C 69 66 20 is ¢ 74 3 af 90 — P.AAD: <ASCII \Output file (*.832): \ : 
3 53 is ze Zh 0025 P.AAE: . ASCII \*.B832\ : 
72 $6 20 64 $5 7% 61 6C 23 6 61 72 54 20 21 0048 P.AAF: ASCII \! Translated from MACRO=32 by MARBLI VO3\ : 
20 62 20 32 33 D 4F 52 43 41 4D 20 6D 6F 0005 : 
56 20 49 4C 42 2 41 4D 0066 F 
31 30 2D 00070 -ASCII \=001\ : 
00074 P.AAG: .BLKB : 
00 00 4F 52 43 41 4D 2E€ 00074 P.AAH: .ASCII \.MACRO\<0><0> r 
00 00 53 SF OO007C P-AAI: -ASCII \_S\<0><0> : 
.PSECT SOWNS,NOEXE,2 
00000 INPUT_RECORD: aa 
00084 INPUT_PTR: aoa 
00088 INPUT_LENGTH: 
.BLKB 4 
0008C¢ OUTPUT _RECORD: a 
00110 OUTPUT_PTR: ey 
00114 ARG_PTR:.BLKB 4 
118 ARG” “LENGTH: ‘ 
0011C ARG_LIST: | 
-BLKB 4096 
O111C CALL_PTR: : 
01120 CALL_LENGTH: ‘ | 
01124 CALL_LIST: | 
LKB 4096 


02124 VAR_ARGS: 
02128 TERMINAL: 


LKB 


-BLKB 

1C INPUT: <BLKB 

5 le Puts grike 
108 SPEC: 


SIOBSPROMPT : 
0 «WORD 


SIOBSPROMPT : 
tii 


ooo 


om oom mom wom 


- ADDRE 
$IOBSDEF AULT: 
ae 


C 
C $10BSOUTPUT 


i 
i 
3 
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Mrr PRoOPoT PforoT fororT=« foror= foToT fororTl 


34 SIOBSOUTPUT all 
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BSRESULTANT= 
OBS$RESULTANT= 
OBSRESULTANT= 

OBS= 
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bad 
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CB$= 
1OBSF ILE. SPEC= 
$= 
4 ofl SPEC= 
SRELATE 


LE 
RELATED= 
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1 
04 
FOR 
-BYTE 
: -ADDRESS P.AAA 


ADDRES 
SIOBSDEFAULT: 


-BYTE 
- ADDRESS 


nn 
“ 


-BYTE 4 
-ADDRESS P. 


AX-11 Bliss-32 V4.U 
MARBLI.SRC MARBL 1.832; 


34 
46 
4s 


=r —— 
v0. laa Vso 
o oe 
> a 
a & 


> 
>— 
LJ 


4, 1 


-BYTE 
tae P.AAE 


4a 


-BYTE 14, 1 
we" P.AAF 


0 
1 oO 1 
AAG 
TERMINA 
TERMINAL +28 
NPUT 
INPUT+28 
OUTPUT 
OUTPUT+28 


TERMINAL 
TERMINAL 


NPU 
TERMINAL+52 
TERMI 


TERMINA 
XPOSOPEN, XPOSFAILU URE 
XSTSFREE TEMP, XPOSGET 
XPO$IO FAILURE, XPOSPUT 
XPO$CLOSE 
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MARB MARS to BLISS Macro Converter ihe Sep 3§ AX-11 Bliss-32 V4.0-74 P 9 
Y0e HO 14-Sep 71382 5233 8 MARBLI.SRC mARBY 1 o3004 — ( 


.PSECT S$CODE$,NOWRT,2 


FC CONVERT:.WORD Save R2,R3,R4,R5,R6,R7,RB,RI,RI0,R11 : 0132 : 
8 G EF 3 MOVAB XPO$GET. Ril : : 
A G EF 9€ MOVAB XPOSOPEN, R10 : : 
9 G EF 9E : MOVAB KPOSFAL ORE, R9 : ; 
8 F 43 1 MOV 3 ‘ 
E ‘ iC SUBL bee : : : 
OOFS BF 00 6E Hi C 0001F MovCS #0. SP), #0, #244, 10B$ + 0155 : 
FEI8 ce 03010030 F v0 p MOVL #503 397245, 108$ ; : 
FE36 OC — 8F : MOVW Loasr SULTANT#2 : F 
OOFS BF 00 6E way 0 C 003 MOVCS #0, 6: 6698 , W244, + 0156 ; 
FFOC C8 03010036 F 00 Sods MOVL #08) Teatat : ; 
FF2A C 020E  8F 80 0046 MOVW 526 1oBsR Ser rANTee : ; 
O0F4  8F 00 6E 09 2C 00055 MOVCS , (SP), #0, #244, I0BS ; 0157 ; 
68 0301003D BF DO 9005 MOVL nen 10B$ : : 
1€ a8 O20E F BO 0006 MOVW #526 LOBSRESUL TANT +2 : ; 
ia 0: hg 2 fo) [i 
9 bo oar, UR. : : 
FE18 cs 9F 09078 PUSHAB gas : : 
6A 03 FB O007C CALLS #3, XPOSOPEN : ; 
50 FE3C CB DO OO07F 1$: MOVL 108S+36, RO + 0165 ; 
09 1 00084 BEQL $ : ; 
0 DD 0086 PUSHL RO : : 
000000006 _ EF 01 FB 000 CALLS XSTSFREE_TEMP : ; 
FE3C OCB OOFC CB 9E 0008 2$: MOVAB s10Beenoney 10B$+36 : : 
eats a | : 
7E 04 0009D CLRL. = (SP) : : 
FE18 43 OF 00090 PUSHAB 10B$ : ; 
68 03 FB 000A3 CALLS #3, XPOSGET : F 
4C 0 ; QO0As BLBC 4 : ; 
FF10 «C8 FE4C C8 E 000A9 MOVAB $IOBSFILE SPEC LoBs+4 > 0172 ; 
FFI4 C8 0104 ¢ 3 9080 MOVAB SOBSDEFA AOLT, {oB$+ : : 
FF38 «CB 01 96 0008 MOVB OBS+ ; : 
000000006 EF OF d08¢ PUSHAB xPOsi0_ FAILURE : : 
FFOC BF Goce PUSHAB 108. : 
6A 6 FB O¢s CALLS 198 XPOSOPEN : ; 
e! E9 000¢B BLBC =._-«RO,._:*W1 : ; 
0 FE3C OC 09 00¢ MOVL 1068+36, RO : 0177 ; 
9? 1 D BEQL 3 3 
0 pd 0000 PUSHL RO ; ; 
000000906 EF 01 FB 0000 CALLS XSTSFREE_TEMP : ; 
FE3C cB 010c §=—« 8 43 OE 3$: MOVAB S10BSPRONPT 10B$+36 : ; 
FEA «OC 6 9 E VB #6, 10B$+44 : ; 
De OOOEC ee : 
FE18 oF of PUSHAB 10B$ : : 
68 re OF CALLS #3, XPOSGET : F 
0 E F5 4$: BLBS RO, 5$ : | : 

| 

J 


SS —-— 
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y0e HOO ereee= fhe Pbi23:88 4 Faaal Ohh Smatan t 935, 9 a) 
O1SA 31 Ore BRW 18$ ; : 
.¢ Feat C8 9 000FB 5S: MOVAB $IOBSFILE_SPEC Loas+4 + 0185 ; 
8 A 0114 (CB 9E 001 MOVAB S1OBSDEFAQLT. foBs+ : ; 
a FF28 1 ROVAR OBSRELATED, 10B$+12 : : 
ee 8 1 BISB2 #2, 10B$+46 : : 
oa 1 VB so #1. 1OB$+44 : ; 
9 DD 113 PUSHL 9 : ; 
D4 0011 CLRL. = (SP) : : 
6A 3 3 ii stk: #3, XPOSOPEN : 
“ & 011¢ 3 11€ MOVAB $1O8s0uTPUT. 108$+68 + 0188 F 
2c OA 90 00124 OVB #7, i0B$+44 : ; 
9 DD 00128 PUSHL ; ; 
D4 O012A CLRL. = ( SP) : ; 
000000006 EF i Pe 1 ‘ atk: ; XPOSPUT : 
DEOO §3=—s C8 po7¢ : 9€ 001 § MOV OUTPUT_RECORD, OUTPUT_PTR + 0191 ; 
ps 013¢ CLRL - PRINT_ COMMENTS + 0192 : 
FF38 «CB 6 90 0013E 6$ MOVE , 10BS+44 > 0199 ; 
9 DD 0014 PUSHL R : ; 
D4 14 CLRL. = (SP) ; 3 
FFOC F 0014 PUSHAB 1988 : : 
68 Fe 148 CALLS #3, XPOSGET ; : 
' voce i} O18) 78 oho, S : 
po78 = c8 FF4O cB C 0194 8$: MOVZWL INPUT+52, INPUT_LENGTH + 0201 $ 
DD74 c8 FF44 C dO Bat MOVL INPUT+56, INPUT_PTR 3; 0202 é 
50 0078 C8 DdO 0016 MOVL {NPUT LENGTH, RO ; 0204 3 
fe 12 cote Buca 108 : 0206 
D0 35 ig 16B BLBC = PRINT_COMMENTS, 6$ > 0209 : 
44 AB 0124 CB 3 O16E MOVAB $10BSOUTPUT, 108$+68 : ; 
2c AB 7 90 00174 MOVB #7, 10BS+44 : : 
9 DD 00178 PUSHL : ; 
D4 OO17A CLRL. = (SP) : ; 
sh DD 0017C¢ SHL : : 
000000006 EF 03 FB O17E a CALLS #3, XPOSPUT pe : 
56 EOD CB 00 O18? 10$:  MOVL OUTPUT PTR. RG ; 0213 ; 
0082 8F 00 DD74 =o 50 C O18¢ MOVCS RO, @INPUT/PTR, #0, #130, (RO) ; : 
pp7c «cB 0083 = 8F 6 3a 00196 Locc #0, #131, OUTPUT_RECORD > 0215 ; 
Se ; : 
50 pp7¢ C8 of Sih 11$: MOV TPUT_RECORD, RO : : 
p78 «CB 1 ‘ 1A SUBL3 RO, R1 JNPUT “LENGTH : ; 
8 6 91 O01AD CMPB (RG), #5 : 0217 : 
, ARBRE Roe ‘aae| | 
6 7 €9 0018 BLBC PRINT_COMMENTS, 12$ : 0338 ; 
eR Rie fale. alopboutegtog & : 
8 AE f ift MOVE #1, SIOBSOUTPUT+3 : : 
04 =A a p C3 MOVL  R6, $IOBSOUTPUT+4 : : 
44 hs 5 7 iC MOVAB $1O8souTPuT, 10B$+68 : ; 
2c OA 96 001CD MOVB #7, 10B$+44 : ; 
9 DD 00101 PUSHL R9 : : 


000000006 


66 bpo78 = C8 0000" 
66 bo78 = C8 0000" 


0000Vv 
FF38 


000000006 
2c 

000000006 
FE44 


000000006 


; Routine Size: 605 bytes, Routine 
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F 
FH 
A 
57 
CF 


53 
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ROW FOODS FOOD HMFU OID MVOW DUIS HOM OWS 
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POPIPOPINONYNIPYNIPPOPOPONPIPNPINNVAPINININININD 2 2 OOOO es es 


oonTwoouIoont"ooT7o 


pa19b¢ 12:45:08 ERAROLISSRESMARBLI “030; 


=(SP) 
#3, XPOSPUT 
oufPUT PTR. RO 
(RO), #42 
#1, PRINT_COMMENTS 
#6, P.AAH, INPUT_LENGTH, (R6) 
#6, RS 
#6, R 
#2, P-AAI, INPUT_LENGTH, (R6) 
#2, R 
13, 8S 
#0, CONVMACRO 
#2. 10B8+44 
=(SP) 
1088 
#3, XPOSCLOSE 
#2, 10BS$+44 


nan 
wWMreROO 
on 


= (SP) 

a 

#3, XPOSCLOSE 
. » 10B$+44 
=(SP) 


1088 
a XPOSCLOSE 
#2129921, RO 


Pe Se Se Se Se Be Se Be Be Se Ge Se Be Be Be Se Ge Ge Se Be Se Se Ge Se Ge Se Fe Fe Ge Fe Ge Ge Ge Se Ge Ge Se 


Sehla, «Mt SLABS mere tonmete HMA DSRS RRL SHRI BS 


: $ ¢ } ROUTINE CONVMACRO: NOVALUE= 

: s 6 1 144 

3 1! antl DESCRIPTION: 

; 260 8 1! This routine reads and processes a MARS system macro 

; 261 1} It calls the routine CONVARGLIST to convert the argument List 
: : rs : } of the macro definition. 

: 264 62 1 | PARAMETERS: 

; 265 65 1! 

3 28 64 1! NONE 

; 26 . 

3 68 64 1 ! ROUTINE VALUE: 

; 269 67 1! 

; 270 0268 1! NONE 

: 71 9 1! 

: 27 6 % 1 ie. 

3; ef 0271 1 

3 74 0 Le BEGIN 

; 275 027 LOCAL 

: 6 5 re -—* ! Temp CH$ pointer f i li 

Py . e t 

: th ogee TERP_PTRI, mp pointer for copying arglists 
: 279 0277 TEMP_P 

; 280 0278 TEMPSTRING: VECTORCCHSALLOCATION(80)], 

; 381 0279 MACRO_ 

; ge 0280 MACRO-LENGTH, 

; a 0281 MACRO_NAME : VECTORCCHSALLOCATION(31)]; 

: $88 o588 

; 286 0284 MACRO_PTR = CHSPTR(MACRO_NAME) ; 

: $88 0586 

; 289 0287 ! If the .MACRO Line contains the string ‘‘CJF$"', then change the routine 
: ss ase name prefix from SYS$ to CJF$. Do the same for RUF. 

: 35 0290 PREFIX PTR = CHSPTR(UPLIT BYTE('SYS')); 

3 9 0291 IF CHSFIND_SUB(MAX_RE -OUTPUT PiR, CHSLEN_PTR('CJF$")) NEQ 0 
: 0298 THEN PREFIX PTR = CHSPTRCUPLIT BYTE('CJF')); 

3 9 IF CHSFIND SUB(MAX_REC_SIZE, .OUTPUT PTR, CHSLEN_PTR(*RUF$')) NEQ 0 
; 3398 THEN PREFIX_PTR = CHSPTR(UPLIT BYTE(’RUF')); 

: 0 

; 0997 : Search for the ‘'$"' which begins the macro name and 

; 4 the "_"' which ends it, and initialize MACRO_NAME and MACRO_LENGTH 
; or TEMP_PTR1 = CHSFIND_CH(MAX_REC_SIZE, .OQUTPUT_PTR, X%C'S'); 

: 0301 TEMP_PTR2 = CHSFIND CH(MAX C_ SIZE, .QUTPUT_PTR, %C'_"); 

3 308 MACRO_LENGTH = CHSDIFF(.TEMP_PTR2, .TEMP_PTRT); 

: $7 CHSMOVE (.MACRO_LENGTH, -TEMP_PTRI, -MACRO_PTR); 

; 05 

; : Inform user of progress 

; 8 ' — " CHSCOPY(CHSLEN_PTR('Macro: ') 

; 0309 ghiACRO_CENGTH, .MACRO_PTR, 
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MARS to BLISS Macro Converter 


80, CHSPTR(TEMPSTRING) ); 
SXPO_PUT( IOB=TERMINAL, STRING=(80, CHSPTR(TEMPSTRING) ) ); 


Gather the argument List 
CONVARGLIST(.TEMP_PTR2); 
Put out one of the Lines 
“KEYWORDMACRO $name(formal=default,...)="' 
or 
"MACRO $name[J=" if VAR_ARGS is true 
VAR_ARGS 
CHSCOPY ( 
CHSLEN_PTR('MACRO '), 
-MACRO_LENGTH, 
.MACRO_P 
CHSLEN-PTR('CJ="), 


MAX_REC_SIZE, 
OUTPUT PTR) 
ELSE 


BEGIN 
Lan, 


PTR = CHSMOVE(CHSLEN_PTR('KEYWORDMACRO '), .OUTPUT_PTR); 
PTR = CHSMOVE(.MACRO_LENGTH, .MACRO_PTR, .PTR); 


1g AAS LENGTn GTR 0 ! If there are formal parameters, then 


! put out the argument List. 
HSMOVE( CHSLEN_PTR('("), .P 


=¢ «PTR ); 
= QUTLIST ¢ .PTR, 7ARG LENGTH, sARG_PTR); 
= 


PTR = CHSMOVE( CHSLEN_PTRT')="), .PTR) 


CHSWCHAR_A(ZC'=", PTR); ! There were no formal parameters 


RUCHARCS,, -PTR) ! Mark end of string 


$XPO_PUT(10B=OUTPUT, 
STRING=(TRUNCATED_OUTPUT, .OUTPUT_PTR) ); 


Put out the line "* (" 
$XPO_PUT(IOB=OUTPUT, STRING=(" (") ); 


! Put out the Line *' EXTERNAL ROUTINE SYS$name: BLISS ADDRESSING_MODE (GENERAL) ;"* 


m5 
18805-1986 12:45:08 ERAROLISSRESMARBLI -030;4 


font . 8 | 
MARB MARS to BLISS Macro Converter 16-Sep-1984 01:54:5 AX-11 gt -32 v4.0 P 14 
v04 13n80e-18Re F3:28:38 = Hana Oke snakes tose, age 5) 


-PSECT SPLITS,NOWRT ,NOEXE,2 


; 370 6 ! 
: 371 es CHSCOPY ( 
; f £9 ibe PTR EXTERNAL ROUTINE '), 
: 374 fs LENGTH, 
: 375 7 AACR RO” PTR 
: 3? ri HSLENZPTR(*: BLISS ADDRESSING_MODE (GENERAL) ;"), | 
: 378 2 REC_SIZE, 
: 379 7 OUTP PUT-PTR) : 
; et 18 $xPO _puTLlOBSOUTPUT, STRING=(TRUNCATED_OUTPUT, .OUTPUT_PTR) ); 
; 80 
: 5s 8 3) Put out the Line "' SYS$name(formal,...)"’ 
: 385 0 Bg PTR = CHSCOPY( 
: 386 0384 CHSLEN PTR(' "), 
: 387 0385 , «PREFIX _PTR, 
: 388 0386 MACRO_LENGTH, 
: 389 0387 -MACRO_PTR 
; 90 0388 CHSLEN-PTR('("), 
: 39 0390 .MACRO_LENGTH + 8, ! Exact copyin 
: 338 0391 “OUTPUT_PTR); . ons 
: 395 $398 PTR = QUTLIST( .PTR LENGTH, CALL PTR); | 
: 396 0394 PTR = CHSMOVE( CHSLEN. pth , BCHAR(O)-), .PTR ); | 
: 398 b398 
: 399 0397 $XPO_PUT( IOB=OUTPUT, STRING=(TRUNCATED_OUTPUT, .OUTPUT_PTR) ); 
. 
; 188 et Close up the macro declaration 
> 404 0402 $XPO_PUT(IOB=OUTPUT, STRING=(' ) %;") ) 
; 405 0403 1 END; 
53 59 53 90080 P.AAJ: ASCII \SYS\ F 
008 *BLKB. 1 
24 46 GA 43 0084 P.AAK: <ASCII \CUFS\ ; 
46 4A 4G 088 P.AAL: ASCII \CIFA : | 
24 46 55 52 008 P.AAM: ASCII \RUFS\ ; 
46 55 5 3 P.AAN: ASCII \RUF\ : | 
00 00 20 4F 52 43 41 4D 94 P.AAO: “ASCII \MACRO \<0><0> : | 
09 30 50 58 %¢ P.AAP: <ASCI! \CJ=\<0> : 
00 00 20 4F 52 43 41 4D 44 52 4F 9 45 4 0 Ag P-AAQ: .ASCII \KEYWORDMACRO \<0><0><0> 
0 BO P.AAR: ASCII \(\<0><0><0> : | 
D B4 P.AAS: .ASCII \)=\<0><0> : 
28 0 20 BB P.AAT: ASCII \ (\ : | 
OBD "BLKB | 


MARS to BLISS Macro Converter 
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00 
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4F 52 20 4 
Hae 


45 47 28 


38 25 20 29 


0005 


01 OE 0243 
00000006° 03646 
0008 0 


00000006" O2ea8 


OFFC 00000 ursctenae”' 


58 ae CF 9E 0000 
5E 8 AE 9E 0000 
59 08 AE YE 00008 
SA 0000" CF 9E QO00F 
54 68 0014 
64 0082 = BF 0000" CF 04 0017 
03 13 000 
23 Be dQ 000 
5 4 C2 00025 1$ 
05 1 88 
SA 0000" CF 3 A 
64 0082 = BF 0000" CF be ; oS F 2$: 
53 Oe DO 0005A 
53 4 ¢ 4 3$: 
05 135 0004 
PY.) 0000" CF 3 
64 0082 = &F 4 3A 47 4$: 
: 12 4D 
D4 4F 
3? 1 0 2} 5$ 
64 0082 F SF F 3A Boag 
2 12 3B 


8 6 
16-Sep-1 
14-Sep-1 


CO P.AAU: 
CF 
08 P. AAV: 
E 
F6 
FB 
P. AAW: 

1 : 
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01 

01 


0243¢ eoeaamiat ©! 


Be 12:08:08 


ASCII 
ASCII 


»PSECT 


corel OL legate V4.0-74 
MARBLI.SRCJMARBLI.B32; 


\ EXTERNAL ROUTINE \<0><0><0> 
\: BLISS ADDRESSING_MODE (GENERAL) ; \<0><0> 


<0> 


\ \ 

\O\< ><>cd> 
\) \<0><0><0> 
eats We ><0> 


SOWNS ,NOEXE ,2 


—U" 


4, 1 


“BYTE 
“ADDRESS P.AAT 


464 cntanetantit © 


oW 
-BYT 


14 


E o 1 
«ADDRESS P.AAZ 


»PSECT 


OUTPUT 


OUTPUT 
SCODES$ ,NOWRT,2 


Save R2,R3,R4 
OUTPUT PTR, Ri 


R5.R6,R7/RB-RI,R1O.R11 
-120(SP), §P 


#4, R 


P.AAL, PREFIX _PTR 
ee P.AAM, #130, (R4) 


#4, R 
#4, R 


P.AAN, PREFIX_PTR 
#36. #130, (R&) 


R1, TEMP_PTR1 
#95, #130, (R4) 


27 
26 ? 
6 62 
0000v CF 
: 
58 00 0000° CF 
55 
58 00 69 
58 
58 00 0000" CF 
00 0000" CF 
63 69 
50 
83 
0000v CF 
53 
83 
83 
FF7C = «CB 0083 = BF 
50 
6€ 51 
O¢ AE 
0 AE 
046 AE 
§ 44 «(B 
ee 
nage EF 
44 «CB 
2c CB 


000000006 44 


2014 
82 


08 


0000" 
04 


0000" 


FF7C 


8 
000000006 


2200 

232¢ 
000000006 

2200 

82 
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118: 


4 01:54:5 AX-11 Bliss-32 V4.0-74 
Hn 03:29:38 YRARBLIOSRe MARBLI .832; 

CLRL sR 

MOVL. 1, TEMP_PTR2 

SUB TEMP_PTRT, TEMP_PTR2, MACRO LENGTH 


L 
abuts MACRO_LENGTH, (TEMP_PTR1), TMACRO_PTR) 
TEMP PTR2 


CALLS CONVARGL IST 
LBC VAR_ARGS, 7$ 
MOVZBL . 
OVL OUTPUT PTR, R7 
MOVCS #6, P.RAO, #0, RB, (R7) 
GEQ «i108 
ADDL2 #6, R7 
SUBL2 #6, RB 
MOVCS MACRO_LENGTH, (MACRO_PTR), #0, RB, (R7) 
BGEQ 108 
ADDL2 MACRO_LENGTH, R7 
SUBL2 MACRO-LENGTH, R8 
MOVCS #3, PTAAP, #6, RB, (R7) 
BRB 10$ 
MOVC3 #13, P.AAQ, @OUTPUT 


z 
MOVC3 MACRO_LENGTH 


PTR 
(MACRO_PTR), (PTR) 
MOVL §ARG_LENGTH, RO 


BLEQ 

MOVB =P. AAR, ~(PTR)+ 

PUSHL ARG_PTR 

PUSHL RO 

PUSHL PTR 

CALLS #3, OUTLIST 

MOVL . 

MOVW  P.AAS, (PTR)+ 

BRB 

MOVB «#61, (PTR) + 

CLRB P 

LOCC #0, #131, OUTPUT_RECORD 

BNEQ 118 

CLAL 

MOV OUTPUT_RECORD, RO 

SUBW 17 $IOBSOUTPUT 

Movs #14, $foB$SouTPUT+2 

MOVB = « #1, SIOBSOUTPUT+3 

MOVL OUTPUT PTR, SIOBSOUTPUT+4 

MOVAB $10BSO0TPUf, 10B$+68 
VB #7, I0BS+44 

PUSHAB XPOSFAILURE 

cURL -(SP) 

CALLS #3, XPOSPUT 

MOVAB $108S0UTPUT. 10B$+68 
VB #7, ~1OBS+44 

PUSHAB XPOSFAILURE 

LRL -(SP) 

PUSHAB 1088 

CALLS #3, XPO$PUT 

MOVZBL #130, R8 


Pe Se Se Se Se Se Se Se Se Se Se Se Se Se Oe Be Se Be Ss Be Be Oe Oe Oe Oe oe Sete Se Se Se Se Se Se Se Se Ge Be Se Se Fe Se Ge Fe Ge Se Ge Ge Ge Ge Fe Se Ge Se Ge Ge Fe 
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MARS to BLISS Macro Converter 16-Sep-1984 01:54:5 AX-11 Bliss-32 V4.0-74 Page 17) 
1o- 808-138 93:2 :0 ERARBLI-SRe makeN 1 03004 . (5) | 
57 0 00137 MOVL.  OUTPUT_PTR, R7 : 0377. 
00 0000° CF 3 ge 13h MOVCS #21, PTAAU, #0, RB, (R7) : . 
2h 18 S012 BGEQ =—s-:«12$ : | 
57 CO 00144 ADDL2 #21, R7 : | 
: 1 g 147 SUBL2 #21. RB : 
00 ry 0 C 16a mMOvCS #3, (PREFIX_PTR), #0, R8, (R7) : | 
<.% 13 BGEQ 12$ : | 
57 CO 001 ADDL2 #3, R7 : | 
8 § 1 SUBL #3, R8 $ 
00 69 : C é MOVCS MACRO_LENGTH, (MACRO_PTR), #0, RB, (R7) : | 
i 18 0015 BGEQ §=s-:128 : 
57 CO 001 ADDL MACRO_LENGTH, R7 3 
58 6 § 016 SUBL a eg LENGTH, R8& s 
00 0000' CF } C 0166 MOVCS #33, P.AAV, #0, RB, (R7) : 
FF7C =CB 0083 =s«BF 0 3A O16 12$:  Locc #9 #131, OUTPUT_RECORD : osre| 
2 12 001 BNEQ 13% : 
1 04 0017 CLRL RT : 
50 FF7C cB H 00174 13$: MOV OUTPUT_RECORD, RO ; 
6E 1 A3 0017F SUBW R1 $ioBsourPyr : 
02 AE OE 90 60183 move #14, $foB$ouTPUT+ : 
03 AE 01 90 00187 MOVE «#1, SIOBSOUTPUT+3 ; 
04 AE 68 00 00188 MOVL OUTPUT PTR, SIOBSOUTPUT+4 ; | 
: 44 (CB oe 3 0018F MOVAB $10BS00TPUT. 108$+68 ; 
2c CB 07? 90 00194 MOVE #7, 10BS+44 ee, 
000000006 EF 9F 00199 PUSHAB XPOSFAILURE ; 
E D4 0019F CLRL = = (SP) : 
2200 C8 9F OOIAl PUSHAB 1088 : | 
000000006 EF 03 FB OO1AS CALLS #3, XPOSPUT : 
8 08 Ab YE OO1AC MOVAB 8 R : 0390 
57 6B 00 90180 MOVL OUTPUT_PTR, R7 > 0391 
00 0000° CF 04 2¢ 0018 MOVCS #4, P.RAW, #0, R8, (R7) : 
67 O1BA : 
A 18 00188 BGEQ 14 ; 
57 4 CO 00180 ADDL2 #4, R7 : 
58 04 ce O1C SUBL2 #4. RB : 
00 6A 03 C aor MOVCS #3. (PREFIX_PTR), #0, R8, (R7) : 
1c 18 tte BGEQ 14$ : | 
57 c0 001¢B ADDL2 #3, R7 : 
58 5 DOIcE SUBL2 #3. RB : | 
00 69 g et O1D MOVCS MACRO_LENGTH, (MACRO_PTR), #0, R8, (R7) : 
oe 1 a1? BGEQ 148 ; 
57 6 CO 00109 ADDL2 MACRO_LENGTH, R7 ; | 
58 56 g 10¢ SUBL2 MACRO-LENGTH. R8 ; 
00 0000" CF 01 ¢ 1oF MOVCS #1, PTAAX, #6, RB, (R7) ; 
100¢ CB OD if$ 14$:  PUSHL CALL_PTR > 0393 
1010 DD OO1EB PUSHL CALL~LENGTH : 
DD OOTEF PUSHL P : 
0000v CF FB OO1F1 CALLS a3, OUTLIST : 
D 1g MOVL RO. PTR ; 
0000" CF B80 OO1F MOVW  F.AAY, (PTR)+ > 0394 


vo4=600 


; Routine Size: 


“ 
MARS to BLISS Macro Converter 1h-s0 -1984 01:54: AX-11 Bliss-32 V4.0-74 Page 18. 
12-9 08=1 oh 93:23:88 MARBLI.SRCIMARBLI.B32; . asd 
| . oe « 
FF7C = CB 0083 =F 3A OOIFE LOCC #0, #131, OUTPUT_RECORD 0397 | 
i eat ie 
r ge BIR toe: Bala Bry mien te ge 
: AE E 4 13 Move = #4, sfopsourPuts : 
AE 1 9 1 MOVB #1, $I0BSOUTPUT+3 : 
4 Ae B 1B MOVL output PTR, SIOBSOUTPUT+4 : | 
g244 C é 1F MOVAB 08 OOTPUT, 108$+68 ; 
2c (¢B 4 MOVB #7, 10B$+ : | 
000000006 EF 9F 9 PUSHAB XPOSFAILURE ; 
4 F CLRL = (SP) ; 
2200 F 1 PUSHAB : 
000000006 EF FB 00235 CALLS #3, XPOSPUT : 
44 (CB 2334 8 9 0 MOV $108S0UTPUT. 10B$+68 + 0402 
2c CB 9 4 MOVB oft $+44 : 
000000006 EF 9F 0024 PUSHAB XPOSFAILURE ; 
E D4 00 4 CLRL = = (SP) F 
2200 cB 9F 0025 PUSHAB 1088 ; 
000000006 EF 03 FB 00254 CALLS #3, XPOSPUT : 
04 00258 RET + 0463 


604 bytes, Routine Base: S$CODE$ + 025D 
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MA MARS to BLISS Macro Converter 16-Sep-1984 01:54:5 AX-11 Bliss-32 V4.0-742 Page 19) 
v046 ats 03:23:38 EMARBLI SRE MARBLI.832;1 ° (6) | 
: 407 $ } ROUTINE OUTLIST(BUFPTR, LEN, LPTR)= | 
: 498 jj FUNCTION t List buffer (which l | 
3 ‘ ump an argumen st buffer (which may span several source 
: 411 oS 1! recorés..) te the output file. Continuation lines are flagged 
: tig 09 1! by an ASCII NUL (0) byte. 
; 41 410 1 ! INPUTS | 
; 416 ) oe BUFPTR = byte-pointer into the OUTPUT_RECORD containing prefix 
: ret \§ : information for the first record written. | 
3 i 13 : ; LEN = Length of the arqument-List string. | 
41 1661: LPTR = Pointer to th “li tring. 
: ‘ 6 aH | output e e@ argument-List string 
: 432 \8 } i. Updated ‘BUFPTR 
s 6 0420 BEGIN 
:  tSs $53 _ ! Input string pointer (arg-list? 
5 ‘ ! Input strin nter (arg-list 
:; 4626 be 5 OPTR, : looy of BUFPTR... 
: : f Be 2 : ' Character temporary 
: 429 04 6 IPTR = .LPTR; 
; ‘ 0 O6 f OPTR = .BUFPTR; 
; 4 é 04 4 DECR I FROM .LEN-1 TO 0 DO 
: 4 0431 CHAR = CHSRCHAR_A( IPTR ); ' Get next character and co to 
: rH bees CHSWCHAR_A( .CHAR, OPTR ); ! output string ie 
: 437 0434 IF .CHAR EQL 0 
; 438 0435 THEN 
; 4639 04 4 BEGIN 
; 460 P 04 4 $XPO_PUT( IOB=OUTPUT, 
: ret P oh 2 — TRUNCATED_OUTPUT, .OUTPUT_PTR) 
$46 0440 4 OPTR = .OUTPUT_PTR; ' Restore buffer ptr. 
3 444 0441 4 CHSWCHAR_A( ZCRAR(9), OPTR ) i and TAB from Left-margin 
; 4465 Bees 4 END 
3; 646 044 END; 
3; 6467 0444 
; 668 0445 OPT 
3; 4469 0446 1 END; 
10B$= OUTPUT | 
003 eon. tots ee Save R2,R3,R4,R5 3 0404 
3 08 C SUBL #8, SP 3 
oc AC b MOVL LPfR, IPTR : 04 $ 
2 . = p mova FPTR, OPTR : 04 
1 BRB 3: 0429 
4 3A F 1$: MOVZBL (IPTR)+, CHAR 3; 0451 
2 4 9 Ng MOVB CHAR, (OPTR)+ > 0432 
4 D 1 TSTL CHAR ; 04 


MARS to BLISS Macro Converter 


vo4=000 


0000" CF 0083 = BF 
29 0000° 

6€ 1 

8 

AE 
04 AE 0000' 

0000" CF 

0000" ¢ 


F 
000000006 


0000° 
00000000G_ EF 
52 0000" 
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VWNONMOM WTHOAMOOUMNOOLS 


50 


OU NOOT "OT OOOT OOPr 09 we 
FOL OOD F&F MOMOOOUN SNM PN 


; Routine Size: 104 bytes, Routine Base: S$CODES + 0489 


SOoOoOCOCOCOOSCSOOOOOOOOOoOoOo 
OSOOOOCCCOCOSGOOOOOOOOSCOO 


—s 


MM>SuIw—ON —— 


by ee eg a ee 
NEM ONMIMIA OO 


6 
-Sep-19 
~$007138 


3$: 


4 01:54: AX-11 Bliss-32 V4.0-74 
4 93:23:08 MARBLI.SRCJMARBLI.832; 
BNEQ 
pore » #131, OUTPUT_RECORD 

NEQ 

CLRL 

MOV 


oyTPuT ote RO 


GuTPyT 
MOVB ais, Rt 0BS0U Tuts 
MOVB of * stossout T+3 
QufPUT. PTR $iossoyrputs4 


MOVL 

Rovas — $josso0rPUt 
PUSHAB ROSE AILURE 

CLRL 

ceo 

MOVL oufeur. Hay OPTR 
MOVE #9, (OPTR)+ 

SOBGEQ 

MOVL  OPTR, RO 

RET 


Page 20 
. (6) 


0439 


H 6 
v04=000 ene He cages corte amped 1erSepm tobe 12:43:08 ERAROLICSRESMARBLT-832/1 emt 


] 
| 
: 45] 447 1 ROUTINE CONVARGLIST(TEMP_PTR): NOVALUE= | 
5 4 ‘ ree 1 '44 
: $546 4 9 1 | FUNCTIONAL DESCRIPTION: Val 
; 455 1 / This routine gathers the argument List of a macro abbens Mge ow 
; 6 $ § 1! It processes continuation Lines. It eliminates unnecess 
; 4 4 1 characters and places the arguments with Getoure values in” ARG_LIST 
3 : : 4 2 ! and a List of the formal names in CALL_LIST 
; 1 i PARAMETER 
; 461 : 1 i =e gor 
; 46 4 1 TEMP_PTR = The value of a CH pointer in the macro 7FF 
; 46 1 i definition Line. 7Ft 
: 664 0460 1} 7FF 
: 465 61 1 ! IMPLICIT OUTPUTS: 7FE 
; reg ro 4 1 i ARG_LIST = String of formal ocqunentt with default values 7FF 
; 46 63 1! = String pointer to A T 7Ff 
: 468 464 1! ARG_LENGTH = Lengt of string in ARG. LIST 7FF 
: 469 65 1! CALC_LIST = String of formal arguments 7FF 
; 470 £68 1 i ALL_PTR = ptr ing pointer te, CALL_LIST 7FE 
: 471 0467 1! CALL_LENGTH = Length of string in CAL. LIST 
3 of nc ! VAR_ARGS = True if the last formal argument was END_VARNUM_ARGS 
5 474 70 1 ! ROUTINE VALUE: 
ye 4 8 Se 
> 47 0673 | ine 
; 478 0474 1 
: tbo 0496 LOCAL 
; 481 067? oset _PTR, ! Input character string pointer 
; 48 478 CHA ! Character from string 
; 448 0479 State, ! State gt Parse 
3; 484 9 ! No arguaent seen yet 
; 485 1 : = Scanning formal name 
; rt] 5¢ ' ) = Scanning default value 
; 48 04 BEGIN_ARG; ! Character string pointer to beginning of argument 
: OBS bc8s CRO 
> 490 # Bese TRY_ADD_DEFAULT= 
3 $3) 94 £4 “IF TSTATE EQL 1 THEN (CHSWCHAR_A(ZC°=", ARG_PTR); CHSWCHAR_A(ZC'O', ARG_PTR)) %; 
: oe 50 
; 495 $1 Initialize 
; 499 198 ARG PTR = CHSPTRCARG LST); 
; 498 94 CHSFILL(O, MA LIST, .ARG_PTR); 
3; 499 95 CALL_PTR = CHEPIRGTALL IST); 
: 00 rh CHSFILL(O, MAX ‘iste CALL PTR); 
; 501 9 LIST_PTR = CHSPLUST, tTeMe PTR, 3); 
i 308 98 VAR_ARGS 
; 50 : TATE = 0; 
; 08 3 1 
; 09 358 ! Scan the argument List 


Ss } 
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v04 1 ~3007 138% 04:23:38 YRARBLI SRE maser t 65004 . (3 
: oS ¢ : Exit when an end of Line (not preceded by Line continuation mark) is read 
; 10 REPEAT | 
; ig CHAR = CHSRCHAR_A(LIST_PTR); 
3 3) SELECTONE .CHAR™ OF | 
: 13 : SET 
; 1g i (0): 
; $1 15 4 BEGIN 
3 18 14 4&4 : 
: | 15 4 ! End of List 
3 0 8 4 ! Add a default value to the last argument if it did not 
3 1 1 4 : have one. 
3 § 218 4 ' Set VAR_ARGS if the name of the last argument is 
: 283 212 4 END_VARRUM_ARGS 
> 525 3 1 4 TRY_ADD_DEFAULT; 
; $ 82 § 4 IF [STATE GEQ 1 
: $58 sf oe 
: 529 525 4 CHSEQL ( 
; 5 $ 4 CHSDIFF(.CALL_PTR, .BEGIN_ARG), 
3 1 5 4 -BEGIN_ARG, 
3 § 32 8 4 CHSLEN_PTR(*END_VARNUM_ARGS'), 
3 529 4 0) 
3 82 0 4 THEN 
; 535 3 1 4 VAR_ARGS = 1; 
: ; §8 g 4 EXITLOOP 
; ; 32 : ; END; 
: 326 5 C2c°aA’ TO 2C°Z*, CO" TO RCO", AC'_*, C'S"): 
Bo BE eel 
; 308 0539 4 i Symbol constituent 
3; 65446 0540 4 ! If STATE is zero, it is the first character of a formal name 
3 ee? $¢) ? STATE distinguishes scanning formal name from scanning default value 
; 308 28 4 if .STATE EQL 0 
: rh ate H THEN gin 
: 550 546 STATE = 1; 
; 53 56 2 BESIN_ARG = .CALL_PTR 
: 55 549 4 . 
3 554 550 4 IF .STATE EQL 1 THEN CHSWCHAR_A(.CHAR, CALL_PTR); 
3 55 551 4 CHSWCHAR_A(.CHAR, ARG_PTR) 
3 28 236 ; END; 
; 38 2 4 (xc'="): 
HY 4 555 2 BEGIN 
: 561 338 4 i Beginning of default value 
; ° 228 ? } Set STATE to indicate scanning default and collect character 
: 564 560 4 STATE = 2; 
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65 CHSWCHAR_A(. CHAR, ARG_PTR) 
$8 3 
Czc','): 
BEGIN 


i End of argument 


7 : Add a default value to the argument if it did not have one 
7 : Collect the character 
ne Reset STATE to indicate not within an argument 
7 TRY_ADD_DEFAULT; 
7 CHSQCHAR_A(.CHAR, CALL_PTR); 
CHSWCHAR_A(.CHAR, ARG_PTR); 
STATE = 0 
5 : 
(%C'="): 
BEGIN 


i Line continuation indicator 
; Get a new Line and reset LIST_PTR 


' 
CHSWCHAR_AC 0, CALL_PTR ); 
CHSWCHAR_A( 0, ARG_PTR ); 


$XPO_GET(10B=INPUT); 
INPUT_LENGTH = .INPUTC 
INPUT-PTR = .INPUTCIOBSA_STRINGJ; 

CHSCOPY(.INPUT_LENGTH, .INPUT_PTR, 


MAX_REC_ SIZE, .OQUTPUT_PTR); 
L1ST_PTR = TOUTPUT_PTR 


GSOOCoooooo 
MAMMA 


os oot cies be pe ans eS ae 


1OBSH_STRINGJ; 


CaC* 5"): 


i MACRO comment character a a 
The remainder cf the Line is “‘ignorable 


: EXITLOOP 


OOQOoooooooocooo 
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ooo 
a eS SS SESS: 
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Tes SIRS RATE tt ot he 


! Set up implicit outputs as noted 
! If variable number of arguments, ther replace CALL_LIST by ‘"ZREMAINING’’ 
since this is the call argument 


ARG_LENGTH = CHSDIFF(.ARG_PTR, CHSPTR(ARG_LIST)); 
ARG-PTR = CHSPTR(ARG_LIST); 


IF _.VAR_ARGS 
THEN 
BE 


GIN 
CHSCOPY ( 
CHSLEN_PTR("ZREMAINING'), 


Be Se Se Se Se Se Oe Se Ge Ge Be Fe Se Se He Se Se Ge Se Se Ge Be Ge Ge Se Se Se Se Se Ge Se Se Se Se Se Ge Be Se Se Se Se Se Se Se Se Se oe Se Se Ge Ge Oe Ge Ge Ge Ge ee 
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MARS to BLISS Macro Converter ! “$20- 38 9}: 24: 38 


AX-11 Bliss-32 V 


4.0- 35°7 
MARBLI.SRC MARBL I -B32; 


3; 6 ; 1 
; 6 1 MAX 
; 624 CHBPTACCALL {1$7) 
; 6 é CALL LENGTH = ChARCOUNT (’ ZREMAINING'); 
: 6 ELSE 
; 6 § 4 CALL_LENGTH = CHSDIFF(.CALL_PTR, CHSPTR(CALL_LIST)); 
3 : § CALL_PTR = CHSPTR(CALL_LIST) 
INFO#250 L1: 0586 
; Referenced LOCAL symbol BEGIN ARG is probably not initialized 
«PSECT $PLIT$,NOWRT,NOEXE ,2 
53 47 52 41 SF 4D 55 4E 52 41 56 SF 46 4E 45 00114 P.ABA: .ASCII \END_VARNUM_ARGS\<0> 
00 00 47 4E 49 GE 49 41 4D 45 52 3 $0132 P.ABB: .ASCII \%REMAINING\<0><0> 
10B$= INPUT 
.PSECT S$CODE$,NOWRT,2 
O7FC 00000 CONVARGLIST: 
.WORD Save R2,R3,R4,R5,R6,R7,R8,R9,R10 
SA 0000" CF 9€ 0000 MOVAB ARG_PTR 
6A 08 AA 9E 9900 MOV ARG-LISf, ARG_P 
OFFF BF 00 6E " 00 2¢ 9008 MOVCS #0,~(SP). #0, “44.095, @ARG_PTR 
1008 CA 101 cA 9E ites MOV CALL_LIST, CALL_P 
OFFF 8F 00 6E 1008 4 2c 00028 MOVC #0, TSP), #0, bn098, @CALL_PTR 
59 06 Ac 03 C1 000 ADDL3 #3, TEMP_PTR, LIST_PTR 
2010 CA 04 0002A CLRL VAR_ARGS 
7 pA OO2E 1$: CLRL —s STATE 
56 9 9A 00030 2$: MOVZBL (LIST_PTR)+, CHAR 
p 12 000 BNEQ 
01 D1 000 CMPL TATE, #1 
Oc \2 00 BNEQ 
00 BA D 90 O003A MOVB #61, @ARG_PTR 
ga 06 0 ; INCL PI 
00 BA 0 4 MOVB #487 @ARG_PTR 
6A D 44 INCL RG PTR 
7 D 46 3$: TSTL ATE 
15 1 4 BLEQ 
50 1008 CA 2 ‘ O04, SUBL 8 GIN. ARG, CALL_PTR, RO 
OF 00 68 d CMPC , (BEGIN_ARG); #0, #15, P.ABA 
0000' CF 
OS 1 BNEQ 4$ 
2010 +A 1 p A MOVL #1, VAR_ARGS 
OOCF F 4$: BRW 
24 $ D1 é 5$: CMPL KAR, #36 
; 0 BEQL 
30 6 di 0006 CMPL CHAR, #48 


rae 
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Y0e D0 1 ~$007} 382 94:23:38 ERARBLI-SRe MARBLI.832; . 3 
5 19 A BLSS 6 6$ F 
woe Nae to ee : 
00000041 8F é D4 ti 6$: CPL CHAR, #65 : 
Q000005A BF $ p 7A CMPL HAR, #90 : 
5 \ BLEG 4 : 
Q000000SF aF 6 pi 7$: CMPL CHAR, #95 : 
i¢ A BNE 0$ : 
; D5 0008C 8s: TSTL TATE + 0543 
8 12 000 BNEG : 
57 01 D MOVL #1, STATE : 0546 
8 1008 cA D 9 MOVL  CALL_PTR, BEGIN_ARG + 054 
01 7 Di 00098 9s: CMPL = STATE, #f : 0550 
13 fF 0098 BNEG 11$ : 
1008 DA 56 9 9090 MOVB CHAR, @CALL_PTR : 
1008 CA D6 OOOA INCL CALL. : 
8 11 OOAG BRB 11$ > 0551 
3D 6 D1 O000A8 10$:  CMPL CHAR, #61 + 0554 
08 12 000AB BNEQ = : 
57 g DO OOOAD MOVL #2, STATE : 0560 
00 BA 6 90 00080 11$:  MOVB CHAR, @ARG_PTR : 0561 
6A 06 90084 INCL ARG_PTR : 
71 «11 0086 BRB 15$ > 0509 
2c 3 D1 000B8 12$:  CMPL CHAR, #44 > 0564 
é 12 00088 BNEG ; 
01 7 01 0008 CMPL STATE, #1 > 0565 
0c if 00C0 BNEQ ; 
00 BA D 90 000C2 MOVB #61, @ARG_PTR : 
6A 06 00¢6 INCL RG. ; 
00 BA 0 90 000¢ MOVE #487 @ARG_PTR : 
éA 06 000CC INCL  ARG.PTR : 
1008 DA 56 90 OOOCE 138:  MOVB CHAR, @CALL_PTR : 0573 
1008 cA D6 0000 INCL CALL. ; 
00 BA 6 90 9900 MOVB § CHAR; @ARG_PTR > 0574 
6A 06 00DB INCL ARG_PTR ; 
FFGE 31 9900 BRW : 0575 
2D 56 D1 OOOEO 148:  CMPL CHAR, #45 : 0578 
47 12 OO0E BNEQ  16$ ; 
1008 DA 94 O0E CLRB = @CALL_PTR + 0584 
1008 CA D6 000E9 INCL  CALL_PTR ; 
00 BA 94 OO0ED CLRB ARG PTR : 0585 
6A D OF INCL  ARG_PTR F 
2134 «CA 6 9 F MOVE #6, 10B$+44 > 0587 
000000006 EF 9F OO0F PUSHAB XPOSFAILURE : 
E D4 OOFD CLRL = = (SP) ; 
2108 cA F 0 FF PUSHAB ; 
000000006 EF 3 FB 00103 CALLS #3, XPOSGET F 
FF74 «CA 13¢ 6CA 3C OO10A MOVZWL INPUT+52, INPUT_LENGTH : 0588 
FF70 CA 140 «CA 06 111 MOVL _INPUT+56. INPUT~PTR > 0589 
0082 = 8F 00 FF70 DA FF74 cA C 1 MOVES INPUT LENGTH, @INPUT_PTR, #0, #130, - : 0592 
59 FC OA 00 1 MOVL TPUT_PTR, LIST_PTR > 0593 
FFQ4 1 00129 15$:  BRW ; 
38 6 D1 O012C 16$:  CMPL CHAR, #59 > 0596 
FB 12 OO10F BNEQ  15$ ; 
50 08 AA 9E 00131 17$:  MOVAB ARG_LIST, RO > 0610 
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ep- MARBLI.SRCJMARBLI.B3 

06 AA A 50 5 PTR, ARG_LENGTH : 
Dt i al cr 
OFFF BF 00 0000" ¢ eee Oh 52 138 ae “ft * wt #0, #4095, CALL_LIST ; 5 
100C ~=OCCA oA 00 14F MOVL #10, CALL LENGTH : 9621 
D 134 BRB 19 3 0613 
50 1010 CA H 156 188: MOV CALL_L RO 3 0624 

100C =CA 1008 CA 50 ¢ O12 SUBL RO, chi PTR, CALL_LENGTH ; 
1008 CA 1010 CA SE 00163 198 MOVAB CALL_LIST, CALL_PTR 3 0626 
04 0016A RET : 0627 


; Routine Size: 363 bytes, Routine Base: S$CODE$ + 0521 


N 6 | 
+ ee 1 MARS to BLISS Macro Converter 16-Sep-1984 2 9: 23 38 AX-11 Bliss-32 V4.0-74 


14-Sep-1984 MARBLI.SRCJMARBLI.832; 

633 6 1 END ! End of module MARBLI 

e32 0639 0 ELUDON 

PSECT SUMMARY 
Name Bytes Attributes 

SOWNS 9998 NOVEC, WRT, RD ,NOEXE,WOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SPLITS 04 NOVEC.NOWRT, RD .NOEXE.NOSHR, LCL, REL, CON,NOPIC,ALIGN(O) 
SCODES 1676 NOVEC.NOWRT, RD; EXE,NOSHR, LCL, REL, CON,NOPIC.ALIGN(2) 


Library Statistics 


ececeece Symbols -<------- Pages Processing 
File Total Loaded Percent Mapped Time 
-$255$DUA28: CSYSLIBIXPORT.L32;1 590 116 19 252 00:00.1 


Information: 1 
Warnings: 
Errors: 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:MARBLI/OBJ=OBJ$:MARBLI MSRC$:MARBLI/UPDATE=(ENHS:MARBL I ) 


Size: 1676 cgge + 9596 data bytes 
: 00: $F 

Elapsed Time: 01239.6 

Lexenes/CPU-Rin: 74449 


247 pages 
ramen By omg bomslote 
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